home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 10 (1990-10)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 11, No. 10 (1990-10)(MindCraft Publishing)(Side A)[a].po
/
DBL.HIRES.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
1KB
|
28 lines
1 REM *************************
2 REM * DBL.HIRES2 *
3 REM * BY VERN L. MASTEL *
4 REM * COPYRIGHT (C) 1990 *
5 REM * MINDCRAFT PUBL. CORP. *
6 REM * CONCORD, MA 01742 *
7 REM *************************
10 REM TURN ON THE 80 COLUMN FIRMWARE
20 TEXT : HOME : PRINT CHR$(4)"PR#3": PRINT "PathName to load: ";: INPUT "";PN$
30 REM SET UP THE AUXMOVE VECTORS IN PAGE 3
40 POKE 768,56: REM $38 SET CARRY FLAG
50 POKE 769,76: REM $4C JMP
60 POKE 770,17: REM $11 LOW BYTE ADDRESS $11
70 POKE 771,195: REM $3C HIGH BYTE ADDRESS $3C
80 POKE 49246,0: REM TURN OFF ANNUNCIATOR 3
90 HGR : REM CLEAR THE SCREEN
100 REM LOAD THE AUXILIARY RESIDENT PORTION OF THE PICTURE
110 PRINT CHR$(4)"BLOAD ";PN$;",A8192,L8192"
120 POKE 60,0: REM SOURCE LOW BYTE IS 0
130 POKE 61,32: REM SOURCE HIGH BYTE IS 8192 (32*256)
140 POKE 62,0: REM SOURCE END LOW BYTE IS 0
150 POKE 63,64: REM SOURCE END HIGH BYTE IS 16384 (64*256)
160 POKE 66,0: REM DESTINATION LOW BYTE IS 0
170 POKE 67,32: REM DESTINATION HIGH BYTE IS 8192 (32*256)
180 CALL 768: REM CALL AUXMOVE TO MOVE MAIN MEMORY TO AUXILIARY MEMORY
190 PRINT CHR$(4)"BLOAD ";PN$;", A8192, B8192":: REM LOAD THE SECOND HALF OF THE PICTURE TO MAIN MEMORY
200 POKE 49234,0: REM TURN OFF THE TEXT WINDOW AT THE BOTTOM OF THE SCREEN.
210 GET Z$: TEXT : HOME